---
title: "3700 Project"
author: "Kelly Money"
date: "4/16/2020"
output:
flexdashboard::flex_dashboard:
theme: darkly
social: menu
source_code: embed
vertical_layout: fill
orientation: rows
---
```{r setup, include=FALSE}
#load packages
library(flexdashboard)
library(coronavirus)
library(tidyr)
library(DT)
library(dplyr)
library(knitr)
library(plotly)
library(testthat)
library(devtools)
library(remotes)
library(leaflet)
library(leafpop)
library(purrr)
library(shinythemes)
library(xaringan)
library(gganimate)
```
```{r, include=FALSE}
#In order to present the most updated version of the data, check the original data for updates
# coronavirus::update_datasets(silence=TRUE)
data("coronavirus")
#cool little trick to load function from a package that you don't want to load
`%>%` <- magrittr::`%>%`
```
```{r}
#Map
map_plot <- coronavirus %>%
dplyr::filter(cases > 0) %>%
dplyr::group_by(Country.Region, Province.State,Lat,Long,type)
```